home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / tools / frexxed / fpl / savefact.fpl < prev    next >
Text File  |  1996-07-13  |  2KB  |  83 lines
  1. /*************************************************
  2.  *
  3.  *  SaveFACT.FPL
  4.  *
  5.  *  Prompt for a file, and make a FPL program that will generate the
  6.  *  current FACT setup.
  7.  *
  8.  ***********/
  9. {
  10.   int counter;
  11.   string result;
  12.   int temp;
  13.   string tempstring;
  14.   int oldid=GetEntryID();
  15.   int newid;
  16.   string file, factname;
  17.   string facts[1];
  18.   int fact_no;
  19.  
  20.   fact_no=GetList("FACT", &facts);
  21.   Sort(&facts);
  22.   if ((fact_no==1 || RequestWindow("Save FACT", "", "a", &facts, &factname, -1)) &&
  23.       strlen(file=PromptFile("","FACT file name"))) {
  24.     newid=New();
  25.  
  26.     if (newid) {
  27.       CurrentBuffer(newid);
  28.       Rename(file);
  29.       SetInfo(-1, "undo", 0);
  30.   
  31.       if (strlen(factname))
  32.         Output("FACTCreate(\""+factname+"\");\n");
  33.       for (counter=-6; counter<256; counter++) {
  34.         Status(oldid, "Countdown: "+ltostr(256-counter));
  35.         Output("FACT(\""+factname+"\", "+ltostr(counter)+", 'E', '-'");
  36.         tempstring=FACTString(counter);
  37.         if (strlen(tempstring)!=1 || counter!=tempstring[0])
  38.           Output(", 'S', \""+ CConvertString(tempstring)+ "\"");
  39.   
  40.         if (counter>=0) {
  41.           temp=Isopen(counter);
  42.           if (temp>=0)
  43.             Output(", '(', "+ltostr(temp));
  44.     
  45.           temp=Isclose(counter);
  46.           if (temp>=0)
  47.             Output(", ')', "+ltostr(temp));
  48.     
  49.           temp=Islower(counter);
  50.           if (temp>=0)
  51.             Output(", 'L', "+ ltostr(temp));
  52.     
  53.           temp=Isupper(counter);
  54.           if (temp>=0)
  55.             Output(", 'U', "+ ltostr(temp));
  56.     
  57.           if (Isnewline(counter))
  58.             Output(", 'N'");
  59.     
  60.           if (Isspace(counter))
  61.             Output(", ' '");
  62.     
  63.           if (Issymbol(counter))
  64.             Output(", '!'");
  65.     
  66.           if (Isword(counter))
  67.             Output(", 'W'");
  68.     
  69.           if (Istab(counter))
  70.             Output(", 'T'");
  71.         }
  72.         Output(");\n");
  73.       }
  74.       Save(file);
  75.       CurrentBuffer(oldid);
  76.       Kill(newid);
  77.       Status();
  78.     }
  79.   } else
  80.     ReturnStatus("Function canceled!");
  81. }
  82.  
  83.